home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / A-COMAL Series / (k)aao.d64 / binomial.lst < prev    next >
File List  |  2009-01-24  |  2KB  |  87 lines
  1. 0010 // DELETE "BINOMIAL"
  2. 0020 // SAVE   "BINOMIAL"
  3. 0030 // BY ╠EWIS ├. ┬ROWN  (3-7-1987)
  4. 0040 //
  5. 0050 CLEARSCREEN
  6. 0060 PRINT "┬INOMIAL ├OEFFICIENTS IN ├╧═┴╠."
  7. 0070 PRINT 
  8. 0080 PRINT "┼XPANSION OF (A+B)^N:"
  9. 0090 PRINT "COEFICIENT OF THE KTH TERM"
  10. 0100 PRINT "IS B(N,K) WHERE K=0 TO K=N."
  11. 0110 PRINT 
  12. 0120 PRINT "B(N,K) = N!/(K!(N-K)!)"
  13. 0130 PRINT 
  14. 0140 PRINT "╬OTE THAT B(N,K) = B(N,N-K)"
  15. 0150 PRINT 
  16. 0160 PRINT "┴LSO WRITTEN AS:"
  17. 0170 PRINT "B(N,K)=N(N-1)(N-2)...(N-K+1)/K!"
  18. 0180 PRINT 
  19. 0190 PRINT "(A+B)^N=╙╒═:"
  20. 0200 PRINT "FROM K=0 TO N OF: B(N,K)A^NB^K"
  21. 0210 PRINT 
  22. 0220 PRINT "╘HAT IS:"
  23. 0230 PRINT "(A+B)^N=B(N,0)A^N+B(N,1)A^N-"
  24. 0240 PRINT "        1B+B(N,2)A^N-2B^2...+B(N,K)A^N-K"
  25. 0250 WAIT
  26. 0260 PRINT "╞IRST TERM = A^N = B(N,0)A^N"
  27. 0270 PRINT "╠AST TERM = B^N = B(N,N)B^N"
  28. 0280 PRINT 
  29. 0290 PRINT "╥EFERENCE: ""╞INITE ═ATHEMATICS WITH"
  30. 0300 PRINT "            ┬USINESS ┴PPLICATIONS"""
  31. 0310 PRINT "BY ╩OHN ╦EMENY ET AL, ╨RENTICE ╚ALL,"
  32. 0320 PRINT "1962, PP 102-106"
  33. 0330 WAIT
  34. 0340 //
  35. 0350 FUNC B(N,K) 
  36. 0360   IF K=0 THEN
  37. 0370     RETURN 1
  38. 0380   ELSE 
  39. 0390     RETURN F(N)/(F(K)*F(N-K))
  40. 0400   ENDIF 
  41. 0410 ENDFUNC B
  42. 0420 //
  43. 0430 FUNC F(N) 
  44. 0440   IF (N=1 OR N=0) THEN
  45. 0450     RETURN 1
  46. 0460   ELSE 
  47. 0470     RETURN N*F(N-1)
  48. 0480   ENDIF 
  49. 0490 ENDFUNC F
  50. 0500 //
  51. 0510 //╨ROCEDURE TO PRINT COEFFICIENTS
  52. 0520 PROC PRINT'COEFF(N) 
  53. 0530   FOR K:=0 TO N DO
  54. 0540     PRINT "K= ";K;"  COEFFICIENT= ";B(N,K)
  55. 0550   ENDFOR K
  56. 0560 ENDPROC PRINT'COEFF
  57. 0570 //
  58. 0580 //╨ROCEDURE FOR INPUT MENU
  59. 0590 PROC MENU'INPUT 
  60. 0600   PRINT "╘O CALCULATE BINOMIAL COEFFICIENTS OF:      (A+B)^N....."
  61. 0610   PRINT 
  62. 0620   INPUT "┼NTER THE DEGREE (N): ": N
  63. 0630   PRINT 
  64. 0640   PRINT "─EGREE =:";N
  65. 0650   N:=INT(N)
  66. 0660   PRINT'COEFF(N)
  67. 0670 ENDPROC MENU'INPUT
  68. 0680 //
  69. 0690 //╚ERE'S THE PROGRAM:
  70. 0700 //
  71. 0710 REPEAT 
  72. 0720   MENU'INPUT
  73. 0730   PRINT "╟ENERAL TERM = B(N,K)A^NB^(N-K)..."
  74. 0740   WAIT
  75. 0750 UNTIL FALSE //FOREVER!
  76. 0760 //
  77. 0770 PROC WAIT 
  78. 0780   PRINT 
  79. 0790   PRINT "╨RESS ╥┼╘╒╥╬ TO CONTINUE"
  80. 0800   WHILE KEY$<>CHR$(13) DO NULL
  81. 0810   CLEARSCREEN
  82. 0820 ENDPROC WAIT
  83. 0830 //
  84. 0840 PROC CLEARSCREEN 
  85. 0850   FOR X:=1 TO 25 DO PRINT 
  86. 0860 ENDPROC CLEARSCREEN
  87.